home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / drivers / printers / Shell Printer Drivers.src.lnx / PChanSerial7 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  2.0 KB  |  54 lines
  1. pcHANsERIAL7
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.0
  4. GEOwRITE    v2.1
  5. .sOURCE CODE FOR INTERFACE PART OF sHELL pRINTER dRIVER FOR cOMMODORE TYPE PRINTERS
  6. .INCLUDEsHELLzERO
  7. @NpRIMARY
  8. @NsECONDA
  9. RY=$60+7
  10. @iNITfORi
  11. o==$C25C
  12. @dONEwITH
  13. io==$C25F
  14. @sETdEVIC
  15. E==$C2B0
  16. @sECOND
  17. ==$FF93
  18. @cioUT
  19. ==$FFA8
  20. @uNLISTEN
  21. ==$FFAE
  22. @lISTEN
  23. ==$FFB1
  24. .PSECT
  25. @xFACEaDD
  26. RESS:
  27. @RoPENcHA
  28. NNEL:
  29. LDA#4
  30. JSRsETdEVICE;cONFIGURE HARDWARE FOR i/o.
  31. JSRiNITfORio
  32. LDA#0;cLEAR ERROR INDICATION.
  33. STAstatus
  34. LDApRIMARY;dEVICEnUMBER
  35. JSRlISTEN
  36. LDAsECONDARY;gET SECONDARY ADDRESS.
  37. JMPsECOND
  38. @RcLOSEcH
  39. ANNEL:
  40. JSRuNLISTEN
  41. LDApRIMARY;gET dEVICE nUMBER.
  42. JSRlISTEN
  43. LDA#$E0;gET DEFAULT SECONDARY ADDRESS.
  44. JSRsECOND
  45. JSRuNLISTEN
  46. JMPdONEwITHio
  47. @RsENDbYT
  48. JMPcioUT
  49. @pROGeND
  50. hgeos pRINTER sERIAL bUS sa=7
  51. pAGE: page
  52. pRINTED ON: dateaT: timefILE: pcHANsERIAL7
  53. ----------------------------------------------------------------------------------------------
  54.